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The SPERRY UNIVAC Operating System/3 (OS/3) 
American National Standard COBOL language is fully 
described in the OS/3 1974 American National Standard 
COBOL programmer reference, UP-8673 (current version). 





@cosor CHARACTER SET 






COBOL Character Set in ae Sequence 


| Hex. Codes | Codes 
Symbol 
EBCDIC ASCII 
Space blank 20 blank 
or 8 
Punctuation, 


Period / 12—8—3 
decimal point editing 


2B 12—8—6 | Editing. 

anthmetic 

Currency 5B 24 }1—8—3 |} Editing 
sign 

5C 2A 11—8—4 | Editing. 

arithmetic 








Source Language 
Usage 










Punctuation. 
editing 











Punctuation, 
grouping 


















multiplication sign. 
comment Ine 










Punctuation, 
grouping 









Minus, hyphen, Words. editing. 


continuation line 









anthmetic 







Arithmetic, 
editing 








Punctuation, 
editing 


Relation, 










Greater than 


Apostrophe C1) 


Equal sign 
punctuation 


G1) Single quote used as quotation mark for SPERRY UNIVAC extension to 
American National Standard COBOL. 






y 

Oo 
ai 
~ 
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COBOL CHARACTER SET (cont) 






COBOL Character Set in Collating Sequence 


Symbol 
EBCDIC 

Letters A thru |] Cl thru C97 41 thru 49] 12—1 

thru 12—9 
Letters } thru R}Ol thru DOE 4A thru 52) 11—1 

thru 11 —9 
Letters S thru Z7€2 thru E9} 53 thru SA} O—2 

thru 0—9 
FO thru F9} 30 thru 39] 0 thru 9 


NOTE: 
Any character can be used as data, but the 1974 American National Standard 
COBOL source language uses only those shown. 





Source Language 
Usage 


















Words. 
(DB for editing) 










Wards. 
(CR tor editing) 










Words. (Z for editing} 







Words. 
editing, arithmetic 





SUMMARY NOTATION 


e Key words (that is, words that result in action by the 
compiler) are capitalized and underscored. 





a Optional words (that is, words included for: 
readability only) are capitalized, but not un- 
derscored. 

 ] Brackets [ ] enclose words, phrases, or clauses that 


may be omitted if their functions are not required. 


= Braces {| } tndicate a mandatory choice of variant 
forms or functions. 


a When braces or brackets enclose a portion of a for- 
mat showing only one possibility, the function of the 
braces or brackets is to delimit that portion of a for- 
mat to which a following ellipsis applies. 


z Ellipses .. . indicate repetition of elements enclosed 
in the preceding pair of brackets or braces. 


The punctuation characters comma and semicolon 
are shown in some formats. They are optional and 
may be included or omitted by the user. In the 
Source program, these two punctuation characters 


are interchangeable and either one may be used 
anywhere one of them is shown in the formats. 
Neither one may appear immediately preceding the 
first clause of an entry or paragraph. 
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SUMMARY NOTATION (cont) 


If desired, a semicolon or comma may be used 
between statements in the procedure division. 
a Lower case represents generic terms which must 


@ _be supplied by the user. 


2 Periods must be used where shown and must also 
appear at the end of each paragraph. Statements 
which do not contain periods on the reference card 
must be followed by a period when used at the end of 
a paragraph. 





a Level 2 module specifications for 1974 American 
National Standard COBOL are enclosed in [boxes]. 
a Sperry Univac extensions to American National Stan- 
dard COBOL are enclosed in dashed-line |boxes). 
a Default values are shown by shading 





a SAM and ISAM files apply only to 90/25, 90/30, 
90/30B, and 90/40 systems. 


RULES AND SUGGESTIONS FOR 
EFFICIENCY 





ie Use legal abbreviations for reserved words to reduce 
compilation time, that is, PIC instead of PICTURE. 


2. Use relational operators instead of relational clauses. 
3. Avoid needless qualification and/or subscripting. 


4. With ADD, SUBTRACT, IF, and MOVE: 


a use same size sending and receiving fields; 
7 align decimal positions of sending and receiv- 
ing fields. 
5. Use indexing instead of subscripting whenever possi- 
ble. 
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FIGURATIVE CONSTANTS 





ZERO O or O's; DISPLAY mode 
ZEROS = code FO (EBCDIC) or 30 
ZEROES (ASCII) COMPUTATIONAL 
mode = binary 0 
QUOTE code 7F (EBCDIC) or 22 (ASCII): © 
QUOTES apostrophe is the generated 
character 
HIGH-VALUE code FF (EBCDIC) or 7F (ASCIil) 
HIGH-VALUES 
LOW-VALUE code 00 (lowest value in 
LOW-VALUES collating sequence} 
ALL literal a sequence of any nonnumeric 
literal or figurative 
constant 
SPACE blank character(s): code 
SPACES (EBCDIC) or 20 (ASCII) 





PICTURE SYMBOLS 


Special 
Description Picture 
Position 


Picture 
Symbol 


A numeric character. 
Used in combination 
with: 
PSY 


An operational sign Is Can be preceded only 
associated with the by H. Only one S 
data item. is permitted. 

Used in combination 

with: 

PV9H 


Assumed decimal point Only one Is per- 
in data item. mitted. Can 
Used in combination precede leading 
with: P or follow 

Any symbol except trailing P. 

A and X is re- 

dundant with P 
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PICTURE SYMBOLS (cont) 


. Special 
Description Picture 
Position 


Picture 


Assumed decimal point Must be first 
outside of data item. or last symbol 
Each P represents or symbols of 
one character PICTURE except 
position. for X, CR, D3, 
Used in combination V, or single +, 
with: -, or $ but can- 
Any symbol except not be both first 
A and X and last. 


Signifies floating Left of E Is 
point. mantissa. Right 
Used in combination of E is exponent. 
with: 

V+-9 


An alphabetic character 
Or space. 

Used in combination 
with: 

X9BO 


An alphanumeric 
character. 

Used in combination 
with: 

AX9BO 


Suppression of leading Can be preceded 
Q's (replaced by only by: V., $+ 
blanks or spaces). - PB O (zero) 
Used in combination 

with: 

Any symbol except 

* AX SH or more 

than one $ + or - 


Check protection, re- Can be preceded 
places leading 0's only by:- + ., 

with asterisks. VS PB O {zero} 
Used in combination 

with: 

Any symbol except Z A 

X S H or more than one 

Sor + 
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PICTURE SYMBOLS (cont) 




















Special 
Picture 
Position 







Picture 
Symbol 
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Description 





Insert comma in char- 
acter position unless 
the preceding position 
has been blanked. 
Used in combination 
with: 

Any symbol! except 
AXSH 



















May not be last 
character 


Actual decimal point 
to be inserted in 
character position 
unless following 
positions have been 
blanked. 

Used in combination 
with: 

Any symbol except 
AXPVSH 
















Insert a blank or 
Space in character 
position. 

Used in combination 
with: 

Any symbol except S 
and H 

























Must be fast 
symbol except for 
P or V. 


Insert the two char- 
acters CR if data 
item is of negative 
value; insert two 
blanks or spaces if 
value Is positive. 
Used in combiantion 
with: 

Any symbol except A X 
+-S$DBH 

























Must be last 
symbol except for 
P or V. 


Insert the two char- 
acters DB if data 
item is of negative 
value; insert two 
blanks if value is 
positive. 

Used in combination 
with: 

Any symbol except A X 
+-SCRH 














PICTURE SYMBOLS (cont) 


. Special 
Description Picture 
Position 


Picture 
Symbol 


Insert $ sign in Must be first 
$ character position. symbols when 
(currency | If more than one, more than one 
sign} indicates floating except for single 
$ sign. + or-P8 O {zero}. 
Used in combination If only one used, 


with: it can only be 
Any symbol except preceded by + - 
that one $ cannot be or P or V. 

used with A X S H; 

more than one $ cannot 

be used with SH A X * 

Z or more than one + - 


Insert 0 in character 
position. 

Used in combination 
with: 


Any symbol except 
S and H 


Insert + in char- If only one + Is 
acter position if used, if must be 
data item value either first or 
positive; - if last except for P 
value negative. If or V. If more than 
more than one +, one + is used, it 
indicates floating must be first 
sign. symbol except 
Used in combination for the $ sign. 
with: 

Any symbol except 

one + cannot be used 

with AX - S CR DB H; 

more than one con- 

secutive + cannot be 

used with AX- S$ 

CR DB ZH * or 

more than one $ 

sign. 
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PICTURE SYMBOLS (cont) 


Special 
Description Picture 
Position 


Picture 
Symbol 


. Insert - in character If only one - is 
(minus) position if data item used, it must be 
value negative, blank either first or 
if positive. If more last except for 
than one -, indicates P or V. If 





floating sign. more than one - 
Used in combination is used, it must 
with: be the first 

Any symbol except symbol except 
one - cannot be used for the $ sign. 
with A X + S CR DB 

* 7 H or more than 

one $ sign. 





ARITHMETIC EXPRESSIONS - 
SEQUENCE OF SYMBOLS 


Second Symbol 


First Symbol | Variable & 
mm | (identifier | */** + ~ | nay 1] ) 
or literal) 


Variable 
(identifier 
or literai) 





Unary + or 
rane - 





P Permitted combination 
blank Not permitted 
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ARITHMETIC OPERATORS 


Operators | Meaning 


Binary + Addition 
Subtraction 
Multiplication 
Division 
Exponentiation 














The effect of multiplication 
by numeric literal +1 






The effect of multiplication by numeric 
literal -1 






ORDER OF EVALUATION FOR 
ARITHMETIC EXPRESSIONS 






Complex Expressions: 


Innermost to outermost nested parentheses 






Simple Expressions: 






1st Unary plus and minus 
2nd Exponentiation 

3rd Multiplication and division 
4th Addition and subtraction 








Evaluate from left to right for operators at the same level. 


PERMITTED DATA CATEGORIES IN 
MOVE STATEMENTS 


Sending | Receiving Data Item Data Item 


Data Item 
Alphabetic | Alphanumeric Numeric 


Alphabetic 


Alphanumeric 
Alphanumeric edited 
Numeric integer 
Numeric noninteger 
Numeric edited 





P Permitted 
blank Not permitted 
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SPECIAL LEVEL NUMBERS 


Entries using RENAMES clause to regroup data items 











Entries specifying noncontiguous working storage 
and linkage data ttems 


Entries that specify condition-names to be associated 
with specific values of a Conditional variable 


DATA-ITEM RELATIONSHIPS 


Elementary Alphabetic Alphabetic 


Alphanumeric 
7 


PICTURE CHARACTERS 





Numeric edited 

Alphanumeric 
edited 

Alphanumeric 





Alphabetic 
Numeric 
Numeric edited 
Alphanumeric 
edited 
Alphanumeric 







Data Character Operational 
Symbols Symbols 


Alphabetic S Operational sign 
Alphanumeric V Assumed decimal point 
Numeric P Scale factor 

E Exponent 


Editing Symbols 


Space . Numeric char. or * 
Numeric char. or space + Plus or minus sign 
Zero - Minus sign or 
Stroke char. space 
Comma CR Credit symbol 
Decimal point DB Debit symbol 

cs Currency symbol 
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CONTROL DIVISION - 
BASIC FORMAT® 


12 
NTROL DIVISION. 
PHABET SECTION. 
[ Sounct-aLpuaee CHARACTERS ARE 


| 

literal-1 fuletuSUpuiaecst st 
) THRU 

l 

| 

| 


= 12 


Gag a 


[MESSAGES ARE alternate-text-module-name ], 


ewe mem mms staat cree erm nce 


IDENTIFICATION DIVISION - 
BASIC FORMAT ®@ 


A B 
8 Ve 


IDENTIFICATION DIVISION. 
PROGRAM-1D. program-name. 

{AUTHOR. [comment-entry].. . ] 

[ INSTALLATION. [comment-entry]... | 
[DATE-WRITTEN.[comment-entry]... ] 
[DATE-COMPILED. [comment-entry]... ] 


[SECURITY .[comment-entry]. .. } 


ENVIRONMENT DIVISION - 
BASIC FORMATS 


A B 
8 12 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 


SOURCE -COMPUTER. ¢« SPERRY-0S3 
UNIVAC -0S3 
[WITH DEBUGGING MODE). 


OBJECT-COMPUTER. ¢ SPERRY-0S3 
tontvac -0S3 


,MEMORY SIZE integerg CHARACTERS 
MODULES 
WORDS 


[,PROGRAM COLLATING SEQUENCE IS 
alphabet-name ] 


[ ¢, SecmenT-Limit Is segment-number] . 


@) The control division is required only when the non-English 
language feature is used. 


Q Camments may be included in this division by entering an 
asterisk {"} in column 7 of each line of comment coding. 
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ENVIRONMENT DIVISION 
Basic Formats (cont) 


A B 

8 12 

SPECIAL -NAMES - 
SYSIN LS mnemonic-name-1 | 
-SYSCONSOLE LS mnemonic-name-2 | 
“SYSLST 1$ mnemonic-name-3 | 
SYSLOG 13 mnemonic-name-4 | 


.SYSCHAN-n |S mnemonic-name-S | 
.SYSCOM IS mnemonic-name-6 | 


 SYSSCOPE LS mnemonic-name-7 ] 
Ha 1§ mnemonic- | 
SYSOUT 


SYSFORMAT) |S mnemonic-name-9 
SYSWORK TTT a 

Sanne T0 ifiname—~S | 

CONTROL AREA IS data-name | 

[WITH FUNCTION-KEYS ] | 

| [WITH CONNECT-FREE] |! 


[ 
[ 
{ 
[ 
[ 
( 
[ 
Sire {-n] 
Hire SHUTDOWN 
LS mnemonic-name.QN STATUS 1S condition-name 
OFF STATUS IS condition-name 
1S mnemonic-name . OFF STATUS is condition-name 





.ON STATUS 1S condition-name 
ON STATUS S$ condition-name .OFF STATUS IS 


condition-name 
OFF STATUS IS condition-name . ON STATUS LS 


condition-name 
_alphabet-name IS; STANDARD - 


NATIVE 
STANDARD -0 


janes literat-2 

THRU 

ALSO literal-3 | .ALSO 
literal-4]}.. . 


literal-5[ (THROUGH ) literal-6 
THRU 
ALSO literat-7 [ ALSO 
literal-B8] 





CURRENCY SIGN IS literal-9 } 





| [7CLASS-NAME IS mnemonic-name 1 
| VALUE IS literal-1 {rHROUGH neerat2 | 
| THRU | 
: titeral-3f (THRGUGH)titeral-4] ]. ]].. | | 
THRU | 


@) This clause is used when non-English language feature is 


invoked. 
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ee ee 


ENVIRONMENT DIVISION - 
Basic Formats (cont) 


FORMAT 1 (Sequential Files): 


A B 
12 








INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT |[OPTIONAL ]|  file-name 
ASSIGN TO{ CARDREADER -lfdname- 
CARDPUNCH -Ifdname- 


| 
‘ 


PRINTER -lfdname - le 


i= 


TAPE -lfdname - 





DISC )-lfdname -{ F 
DISK Al 
F 


TAPE -lfdname - 





7 7 el 
DISK 





‘RESERVE integer-1 [AREA 
AREAS 
[ORGANIZATION IS SEQUENTIAL] 
© | : ACCESS MODE 1S SEQUENTIAL] 


[: FILE, STATUS IS data-name-1}. 
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ENVIRONMENT DIVISION - 
Basic Formats (cont) 


FORMAT 2 (Relative Files): 


8 12 





INPUT-OUTPUT SECTION. 
FILE-CONTROL. ° 
SELECT file-name 


ASSIGN TO (DISC) -Ifdname - : 
Disk 


aria - Ifdname - 

OtsK 

>RESERVE integer-1} AREA 
AREAS 


‘ORGANIZATION TS RELATIVE 


VACCESS MODE IS{ SEQUENTIAL [ RELATIVE KEY IS 


data-name-1 ] 
LLC pp oeeeante KEY 1S 








’) ¥ id 
data-name-1 


[: FILE STATUS |S data-name-2]. 





8 12 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT fite-name 


ASSIGN TO(DISC)- Ifdname -(F 
DISK Vv 
na Ifdname - 
Guat 
‘RESERVE integer-1 | AREA 
AREAS 


;ORGANIZATION IS INDEXED 
i MODE 1S aoe | 











RANDOM 


“RECORD KEY IS data-name-1 


[: ALTERNATE RECORD KEY IS data-name-2 
[WITH DUPLICATES]]... 
[: FILE STATUS IS data-name-3] . @ 
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ENVIRONMENT DIVISION - 
Basic Formats (cont) 


FORMAT 4 (SAM* Files): 





INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT [OPTIONAL ] file-name 


ASSIGN T0(D1SC)-ifdname - 
DISK 


md Pd Fadl oy 
coe 


DISK 


Isis'=™ 


-RESERVE integer-1 [AREA 
AREAS 
-ORGANIZATION IS SAM 


] 

| 

I 

| 

| 

I 

I 

i 

‘ 

! 

| 

| 

i 

' {nee me: 
1 —o 

] 

| 

| 

| 

J 

| 

' 

1 

[ACCESS MODE IS SEQUENTIAL] 
| 
| 


© [: FILE STATUS IS data-name-1]. 
I a a a es oe a ces re ee j 


INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT file-name 


ASSIGN TO TET a 


DISK v 


[4Btsst Name 


1 

] 

| 

! 

| faa meena ]] 
AREAS 
| 

! 

] 

| 

l 

| 














;ORGANIZATION IS ISAM 


:ACCESS MODE 1S |SEQUENTIAL 
RANDOM 
DYNAMIC 


>RECORD KEY IS data-name-1 
(: FILE STATUS IS data-name-2]. 











*Applies only to 90/25, 90/30, 90/30B, and 90/40 systems. 
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ENVIRONMENT DIVISION - 
Basic Formats (cont) 


FORMAT 6 (Sort or Merge Files): 


A 8 
8 12 


INPUT-GUTPUT SECTION. 
FILE-CONTROL. 
SELECT file-name 








ASSIGN TO (DISC) -Ifdname- {F ° 
DISK v 
TAPE 
(DISC) -lfdname- (F)]... : 
DISK v 
TAPE 
[1-0-CONTROL. 
[: RERUN ON DiS$C)-Ifdname- (1 
DISK 2 
TAPE 


[: MULTIPLE FILE TAPE CONTAINS file-name-4 
[POSITION integer-2 | 














[ .fde-name-5 [POSITION integer-3] ] ... ] 
ae i 
>APPLY BLOCK-COUNT ON cnr 
file-name-6 [file-name-7]. . f 
TAPES 
[: APPLY CYLINDER- INDEX AREA OF integer-4 
INDICES ON file-name-8 [,file-name-9] ...]... 


|: APPLY CYLINDER-OVERFLOW AREA OF integer-5 
PERCENT ON file-name-10 [,file-name-11] ...]...- 


[: APPLY VERIFY ON file-name-12 





| .file-name-13]...].. 


pocctttcccccccc 


{ 

| 

| 

| 

| 

{ 

I 

[ 

| 

| 

! 

i 

[; APPLY INDEX-AREA OF integer-6 | 
; [ 
| 

a) 


CHARACTERS ON file-name-14 
Lfile-name-15] ...}) ...] | 


DATA DIVISION - BASIC FORMATS 


wt 


8 12 
DATA DIVISION. 
[FILE SECTION. J 





ED file-name 


;BLOCK CONTAINS |[integer-1 10 ]} integer-2 @ 


CHARACTERS 
RECORDS 





{: RECORD CONTAINS [integer-3 IQ] integer-4 
CHARACTERS ] 


seigee TTT I$ jours | 





RECORDS ARE} < OMITTED 
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DATA DIVISION - Basic Formats (cont) 


oO 
— OF 
nn 








-VALUE OF 
FILE 


FILE ID 18 {fana:name} 


kiteral-1 


as PASSWORD | oe! 


literal-2 


date-name:2 


ie 8 (Gane) 


literal-1 


-DATA §RECORD IS pean. { .data-name-4]. .. 
RECORDS ARE 








‘LINAGE ee LINES 
integer-5 







WITH FOOTING AT (data-name-6 
integer-6 





LINES AT TOP has 
integer-7 


,LINES AT BOTTOM scree 
integer-8 





aa 
LinAGE TS “SVSTeN TINES] 

|: CODE-SET IS aiphabet-name | (1) 
SD file-name 


[ : RECORD CONTAINS [integer-1 [0] 
integer-2 CHARACTERS ] 


-DATA TECUED i$ data-name-1 | .data-name-2] ... 
RECORDS ARE | 

Data Description Clauses 

FORMAT 1: 

AB 

8 12 





level-number ( data-name-1) @ 
FILLER 


[:REDEFINES data-name-2 | 


-(PICTUR ef 1S character-string 
Pic 


;{ USAGE 1S] COMPUTATIONAL 


— ee eel 


1 COMP -1 l 
I COMPUTATIONAL -2! 
| COMP -2 | 
1 COMPUTATIONAL - 3) 
| COMP - 3 | 
; COMPUTATIONAL: 4) 
vlna | 
BUSEY 
INDEX 


Used only with sequential files 

Level-number OT is the only level-number that must 
be started in margin A, Other lfevel-numbers and 
these data description clauses may begin in either 
margin A or B. 


SS) 
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DATA DIVISION - Basic Formats (cont) 




















3 B 
je 
SIGN I$] LEADING ) [SEPARATE CHARACTER] 
TRATLING 
-OCCURS 
integer-1 TO integer-2 TIMES 
| DEPENDING ON sso & 
integer-2 TIMES 
aoe KEY 1S data-name-4 
DESCENDING { ,data-name-5].. . 2 
[ ENDEXEO BY index-name-1 [ .index-name-2]... ] 
ae LEFT 
SYNC” RIGHT 
Toa RIGHT 
0 
[: BLANK WHEN ZERO] 
f: VALUE IS literal) . 


66 data-name-1;:RENAMES data-name-2 





THROUGH) data-name-3 
THRU 





FORMAT 3: 


88 condition-name; (VALUE 15 literal-1 
VALUES ARE 


Caer 


Tae 





([WORKING-STORAGE SECTION 
[77 data-name ; 
(data description clauses) . } 
[01 record-name; 
(subordinate data items and clauses) . } | 


[LINKAGE SECTION. 
[77 data-name; 
(data description clauses) . } 
[01 record-name: 
(subordinate data items and clauses. | ] 
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DATA DIVISION - Basic Formats (cont) 


A B 
8 12 


[COMMUNICATION SECTION] 
CD cd-name; FOR |[ LNITEAL]) INPUT 
[[ ;SYMBOLIC QUEUE !S data-name-1 ] 

[:S¥YMBOLIC SUB-QUEUE-1 I$ data-name-2 ] 
{: SYMBOLIC SUB-QUEUE-2 IS data-name-3 | 
[: SYMBOLIC SUB-QUEUE-3 iS data-name-4 } 
[: MESSAGE DATE IS data-name-5 } 
[ ;MESSAGE TIME !S data-name-6 | 
[: SYMBOLIC SOURCE IS data-name-7 ] 
fF: TEXT LENGTH IS data-name-8 | 





[; END KEY 1S data-name-9 ] 
[: STATUS KEY I$ data-name-10 ] 
{:; MESSAGE. COUNT IS data-name-11] ] 
[ data-name-1, data-name-2,. . . , data-name-11 } 
CD cd-name; FOR OUTPUT 
[; DESTINATION COUNT tS data-name-1 } 
[: TEXT LENGTH IS data-name-2 } 
[; STATUS KEY IS data-name-3] 
[: DESTINATION TABLE OCCURS integer-2 TIMES 
[: INDEXED BY index-name-1 [ , index-name-2]...]] 
[: ERROR KEY 1S data-name-4 } 
[: SYMBOLIC DESTINATION I$ data-name-5 } 


PROCEDURE DIVISION - 
BASIC FORMATS 


FORMAT 1: 


PROCEDURE DIVISION (USING data-name-1 
{ , data- name-2  . .]- 


[DECLARATIVES. 


{section-name SECTION [segment-number ] . 
declarative-sentence 


[paragraph-name. [sentence]...J]...}.. 
END DECLARATIVES. ] 
t{section-name SECTION [segment-number } . 


[paragraph-name. [sentence]...]...]}.. 
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PROCEDURE DIVISION 
Basic Formats (cont) 


FORMAT 2: 
PROCEDURE DIVISION [USING data-name-1 
[ ,data-name-2]...]. 


{paragraph-name. [sentence]...}.. 


COBOL Verbs 
ACCEPT identifier 


identifier FROM{DATE 











ACCEPT cd-name MESSAGE COUNT 


ACCEPT identifier-1 [ , identifier-2}.. . 1 
FROM [SPECIFIC] mnemonic-name | 

| 

| 


[+ SING identifier-3 
literal 


ON EXCEPTION imperative-statement 
L (ON EXCEPTION imp ny 


ADD ij 1 , identifier-2 ] . 
literal-1 literal-2 
TO identifier-m[ ROUNDED] 





[ .identifier-n [ROUNDED]}::: 
[; ON SIZE ERROR imperative-statement } 


ADD ( identifier- we ee ah as 2 


literal-1 literal-2 ,literal-3 


GIVING identifier-m [ROUNDED] 


[ ,identifier-n [ROUNDED])... 


[:ON SIZE ERROR imperative-statement ] 


ADD {CORRESPONDING 


CORR 
| ROUNDED] 













en 10 identifier-2 








{:ON SIZE ERROR imperative-statement | 


ALTER procedure-name-1 TO [PROCEED 10] 
procedure-name-2 


j .procedure-name-3 T0 [PROCEED 10] 
procedure-name-4 ]. . 


CALL USING & data-name-1 _data-name-2 
mee -4 lcd-name-1 | | cd-name-2 _ 
jidentifier-2 | jlidentifier-3 | 

ifile-name-1| | file. name-2 : 





CANCEL identifier-1 .identifier-2 1... 
literal-1 _ literal-2 





G)CLOSE file-name-1{ (REEL 
UNIT 


WiTH NO REWIND 
FOR REMOVAL 


WITH §NO REWIND 
LOCK 








@) This format is for sequential and (SAM* files. 
*Applies only to 90/25, 90/30, 90/30B, and 90/40 systems. 
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PROCEDURE DIVISION 
Basic Formats (cont) 


_tile-name-2 homie NO cad 


UNITSLFOR REMOVAL 


as REMIND 
LOCK 








D CLOSE file-name-1 [WITH LOCK] [.file-name-2 
; [WITH LOCK}}... 


COMPUTE identifier-1 { ROUNDED] 
[ .identifier-2 [ROUNDED}]... 
= arithmetic-expression 
[; ON SIZE ERROR imperative-statement] — 


| 


REPLACING. { ==pseudo-text-1== 
identifier-1 

literal-1 

word-1 





COPY text-name 











BY4 ==pseudo-text-2== 
identifier-2 

literal-2 

word-2 








= LETE file-name RECORD 
; INVALID KEY imperative-statement ] 


SETI tL LERMINAL TERMINAL cd-name WITH KEY 


OUTPUT 





identifier-1 
literal-1 


DISPL ay identifier- 1 . identitier- apy 
neat 1 , literal-2 


{UPON mnemonic-name | 
rT SPLAY identifier- a _identifier- Z| gh "7 
literal-1 literal-2 


UPON mnemonic-name 


| 

| ss os 

| [! SING ot 
| literal-3 


[__—__ 10M SXBEELLON enprntve-vteent 
[ois SPLA LAY. “(identifier-1 ) [-.identitier-2 fee oo | 
| literal-1 [ literal-2 | l 
l UPON mnemonic-name | 
L.____LON ERREP TION imperative statement! | 


a INTO identifier-2 [ROUNDED ] 
literal-1 





imperative-statement ] 


© [ .identifier-3 [ROUNDED]].. .1[;ON SIZE ERROR 


(@ This format is for relative, indexed, and iSAM* files. 
*Applies only to 90/25, 90/30, 90/308, and 90/40 systems. 
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PROCEDURE DIVISION 
Basic Formats (cont) 





DIVIDE hala INTO et GIVING 
literal-1 literal-2 
identifier-3 [ROUNDED] 


[ .identifier-4 [ROUNDED]]... 


imperative-statement 


ie BY jigeneter-2| GIVING identifier-3 
literal-1 literal-2 
[ROUNDED } 


[ .identifier-4 [ROUNDED]).. J[:ON SIZE ERROR 


imperative-statement 


DIVIDE eae i INTO ; saul GIVING identifier-3 
literal-1 literal-2 
[ROUNDED] 


REMAINDER identifier-4 [:ON SIZE ERROR 
imperative-statement | 


[;ON SIZE ERROR 








DIVIDE foe BY ot GIVING 


literal-1 literal-2 


identifier-3 [ROUNDED | 


REMAINDER identifier-4 [:ON SEZE ERROR 
imperative-statement ] 


ENABLE INPUT [TERMINAL J | cd-name WITH KEY 
OUTPUT 


et 
literal-1 








vEXH IBIT (NAMED sind | 
CHANGED NAMED> ¢nonnumeric-literal) . . . | 
l CHANGED 


EX'tT [PROGRAM] 
GO TO ((] procedure-name-1 0] 


GO 10 procedure-name-1 [ . procedure-name-2 ] . 
procedure-name-n DEPENDING ON identifier 


LF romeft Nr statement-1 
pr sEnrénctt 
ate statement-2 
;ELSE NEXT sennenest 


INSPECT identifier-1 TALLYING 
_identifier-2 FOR 
ja ae 
LEADING) (literal-1 
CHARACTERS 


rr re 


hares gigas en alo 


INSPECT identifier-1 REPLACING 
CHARACTERS BY 
eae “ty BEFORE are, INITIA ‘} identifier-7 rd 
a 4 are FIER literal-5 


, (ALL ; identifier-5) BY alee 
LEADING literal-3 literal-4 
FIRST bras sea: cesta 


AFTER literal-5 tT eed = 
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PROCEDURE DIVISION 
Basic Formats (cont) 


INSPECT identifier-1 TALLYING 
. identifier-2 FOR 
cr ees 
! LEADING) ¢literal-1 | 
@ CHARACTERS 
eet sca nea 


AFTER literal-2 ] EVE] 





REPLACING 
CHARACTERS BY 


oe BEFORE) INITIA ‘} feast 
literal-4 AFTER literal-5 


1 


. (ALL . (identifier-5) BY mela 
cena os le 
FIRST BEFORE) INITIAL (identifier-7 
Ghar ae | | C] 


















MERGE file-name-1 ON (ASCENDING 


KEY data-name-1 
DESCENDING 


[ .data-name-2] . 


DESCENDING 
[ , data-name-4]. . 


as TTTTTITT NG } KEY data-name-3 


[COLLATING SEQUENCE I$ alphabet-name } 
USING file-name-2, file-name-3 [ , file-name-4].. . 





OUTPUT PROCEDURE IS section-name-1 
THROUGH ining 
THRU 


GIVING file-name-5 


MOVE (identifier-1} TO identifier-2 [ . identifier-3].. . 
literal 


{TTT identifier-1 TO identifier-2 


CORR 


MULTIPLY eae BY identifier-2 [ROUNDED] 
literal-1 


[ .identifier-3 [ROUNDED] }. 
[;ON SIZE ERROR imperative-statement | 
MULTIPLY memes Ce i BY alae “4 





literal-1 literal-2 
GIVING identifier-3 [ ROUNDED } 


{ identifier-4 {ROUNDED]]... 


ie 0 N SIZE ERROR R imperative-statement | 


a i ela Ppa yaa ae 
ON integer-1 [AND EVERY integer- 2] [uNtet HL integer-3] 


| 

| 

{ cry sr ueents 1 ELSE §statement-2 \ 

a NEXT SENTENCE NEXT SENTENCE f 
Sparen bares I 


mmm eee ee ee i ee 
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PROCEDURE DIVISION 
Basic Formats (cont) 


G@) OPEN {INPUT  file-name-I[REVERSED 
WITH NO REWIND 


. file-name-2] REVERSED see 
WITH NO REWIND 





QUTPUT file-name-3] [WITH NO REWIND | 
[ .file-name-4 [WITH NO REWIND]]... 


'/0 file-name-5 }[ , file-name-6].. . 


EXTEND file-name-7 [ , file-name-8]... 








@) OPEN LUT file-name-1 [ , file-name-2] . 
. QUTPUT file-name-3 [ , file-name- ats 
a 0 file-name-5 [ , file-name- ois 


PERFORM procedure-name-1 [f HROUGH ‘daa 
. THRU 


PERFORM procedure-name-1 THROUGH procedure-name-2 
THRU 
ouedl TIMES 


integer-1 


PERFORM procedure-name-1 i! HROUGH ores 
THRU 
UNTIL condition-1 


PERFORM procedure-name-1[¢ UG *t oer 


index-name- 1 index-name-2 


TARY ING Neentfer 2 OM lidentifier-3 
literal-1 





BY es UNTIL condition-1 
literal-2 
AFTER jeeeee FROM( identifier-6 
index-name-3 index-name-4 
literal-3 
BY oes UNTIL condition-2 
literal-4 


index-name-6 
fiteral-5 


index-name-5 


AFTER ent FROM : identifier-9 


BY eee ° UNTIL condition-3 
literal-6 





@ READ file-name RECORD [INTO identifier) [;AT END 
imperative-statement ] 


@) READ file-name RECORD [INTO identifier ] 


[:AT END imperative-statement ] 


@ READ filename RECORD [INTO identifier | 


[: INVALID KEY imperative-statement ] 
@ READ filename RECORD INTO identifier |[:KEY 1S data-name] 


KEY 


[; INVALID KEY imperative-statement | 








@) This format is for sequential and iSAM" files. 

@ This format is for relative, indexed, and {ISAM" files. 

@) This format is for relative and SAM* files. 

@ This format is for indexed files only. 

*Applies only to 90/25, 90/30, 90/30B, and 90/40 systems. 
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PROCEDURE DIVISION - 
Basic Formats (cont) 


RECEIVE cd-name (MESSAGE ? INTO identifier-1 
EGMENT 


[:NO DATA imperative-statement ] 
RELEASE record-name {FROM identifier } 
@ RETURN file-name RECORD [|tNTO identifier | 


‘AT END imperative-statement 





@) REWRITE record-name [FROM identifier] 


@) REWRITE record-name [FROM identifier | 
[: INVALID KEY imperative-statement } 


index-name-1 
|: AT END imperative-statement-1 ] 


SEARCH identifier-1 (‘ ARYING eee | 


-WHEN condition-1 fimperative-statement-2 
NEXT SENTENCE 


‘WHEN condition-2 {imperative-statement-3 |. . . 
: NEXT SENTENCE 


SEARCH ALL identifier-1 [:AT END 
imperative-statement-1 ] 


WHEN ee EQUAL "94 
IS = 


identifier-3 
titeral-1 
arithmetic-expression- 1 
condition-name-1 
ANDJ data-name-2 1 S$ EQUAL ro} 
IS = 
identifier-4 
litera!-2 
arithmetic-expression-2 


condition-name-2 





imperative-statement-2 
NEXT SENTENCE 


SEND cd-name FROM identifier-1 
SEND cd-name [FROM identifier-1] \]WITH identifier-2 


WiTH EST 
WITH EMI 
WITH EGI 

| jee ADVANCING vee LINE 

| AFTER integer LINES 

PAGE 
SET jidentifier-1 [ .identifier-2]. . . T0 \identitier-3 
index-name-1  [ .index-name-2]. . . index-name-3 


integer-1 


SET index-name-4 [ ,index-name-5]...$UP BY 
| own By 
@ identifier-4 
integer-2 


@ This format is for sequential and ‘SAM* files. 
@ This format is for relative, indexed, and:ISAM* files. 


*Applies only to 90/25, 90/30, 90/308, and 90/40 systems. 
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PROCEDURE DIVISION 
Basic Formats (cont) 


SORT fite-name-1 ON ASCENDING }) KEY data-name-1 
DESCENDING 


[ .data-name-2]... 


ONGASCENDING @ KEY data-name-3 
DESCENDING 





[ .data-name-4]. . | - 


[COLLATING SEQUENCE ¢S alphabet-name | 


INPUT PROCEDURE 1S section-name-1 
[yeaa section-name- J “ 


USING file-name-2 


OUTPUT PROCEDURE IS section-name-3 
~ PPHLBOUEHT sector section-name-4 
THRU 


GIVING file-name-4 


Q) [START filenama KEY/I1S EQUAL TO data-name 
Is = 
IS GREATER THAN 
is > 
1S NOT LESS THAN 
1s NOT < 





> ENVALID KEY imperative-statement | 
@I START filename) KEY(1S EQUAL TO )data-name] | 
| IS = 
[ IS NOT LESS THAN 
I iS NOT < 
[: LNVALID KEY imperative-statement ] : 


ec eee ee 





STOP jeu 
literal 


STRING pa identifier-2 
literal-1 


tdentifier-3 
literal-3 
SIZE 

sala [. identifier- 


literal-2 it .. DELIMITED BY 


literal-4 


identifier-6 
literal-6 
SIZE sat 


INTO identifier-7 [WITH POINTER identifier-8 ] 
[: ON OVERFLOW imperative-statement | 


5 
,literal-5 i caret pit BY 





SUBTRACT ae [ | _. FROM 


literal-2 


literal- 
identifier-m [ROUNDED] © 
_identifier-n [ROUNDED J}... | 


[:O0N SIZE ERROR imperative-statement ] 





(1) This format is for relative and indexed files. 


@) This format is for relative, indexed, and SAM" files and applies 
only to 90/25, 90/30, 90/30B, and 90/40 systems. 
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PROCEDURE DIVISION 
Basic Formats (cont) 


cia aL ,identifier-2 |... FROM 
literal-1 , literal-2 


identifier-m 
literal-m 


GIVING identifier-n [ROUNDED ] 





[:O0N SIZE ERROR imperative-statement ] 


ae FROM 
CORR 
identifier-2 [ ROUNDED} 


[:ON SIZE ERROR imperative-statement | 





TRANSFORM identifier-1 [.identifier-2]...CHARACTERS| 


FROM tidentifier-3 104 identifier-4 
nonnumeric-litéral-1 nonnumeric-literal-2 
figurative-constant-1 figurative-constant-2 


TRANSFORM identifier-1 [ , identifier-2]... CHARACTERS 
~ fesiien | its 5 


UNSTRING identifier-1 
DELIMITED BY [ALL] \ronn 


literal-1 


[ALL ]{ identifier-3 
literal-2 


INTO identifier-4 [,.DELIMITER IN identifier-5 ] 
[, COUNT IN identifier-6 j 


| .identifier-7 [,DELIMITER !N identifier-8 | 
[. COUNT IN identifier-9]]... 


[WITH POINTER identifier-10 ] 
[TALLYING IN identifier-11 ] 


[;O0N OVERFLOW imperative-statement | 








USE AFTER STANDARD EXCEPTION] 
ERROR 


PROCEDURE ON ( file-name-1 
INPUT 
OUTPUT 
|-0 
EXTEND 


E FOR DEBUGGING ON 
“ak ede name-1 
[ALL REFERENCES OF] identifier-1 
file-name-1 . 





procedure-name- 1 
ALL PROCEDURES 


cd-name-2 


[ALL REFERENCES OF] identifier-2 
fite-name-2 


procedure-name-2 
ALL PROCEDURES 
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PROCEDURE DIVISION - 
Basic Formats (cont) 


USE(AFTER ) STANDARD PREGINNINGT TE FILE)! 
BEFORE ENDING |[REELJ\ 
LABEL PROCEDURE ON 
file-name-1 [file-name-2] ...). | 
( 

J 

I 

J 


a! 


INPUT 
OUTPUT 


G) WRITE record-name [FROM identifier-1] 


fBEEORE} ADVANC Na {Gaamaorifi ine | 











AFTER integer LINES 
{fanemont=nara 
PAGE 
[ AT SEND-OF - PAG a asia 
EOP 


(@ WRITE record-name [ fROM- identifier ] 
[: INVALID KEY imperative-statement | 


Se 








MISCELLANEOUS FORMATS 


QUALIFICATION: 


data-name-1 iC data-name-2 |... 
condition-name : 


paragraph-name [ ju [sco ined 


text-name [ {2 r i; payee 


SUBSCRIPTING: 


bees oe [ , subscript-2[ , subscript-3 ] } ) 
condition-name 


INDEXING 


data-name 
condition-name 
a [it] literal-2 ] 


literal-1 
, (index-name-2 [ {+} literal-4] 
literat-3 


literal-5 


[ ace Pata Pi sade 





@ This format is for sequential and 'SAM| files. 
@ this format is for relative, indexed, and USAM files. 
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MISCELLANEOUS FORMATS (cont) 
IDENTIFIER: FORMAT 1 


data-name-1 [ OF een sees 
1N 


@ { (subscript-1 [ .subscript-2 [ , subscript-3]] ) ] 


IDENTIFIER: FORMAT 2 





data-name-14 bir OF owes 


literal-1 


[(} eae name-1 [ {+} ela 


literal-3 


: rosa {+} literal-6 ] ) 
literal-5 


RELATION CONDITION: 


Bret [ {+} noe 










identifier-1 IS [NOT] GREATER THAN 
literal-1 1S [NOT] LESS THAN 
IS {NOT] EQUAL TO 





identifier-2 
literal-2 


arithmetic-expression-2 


CLASS CONDITION: 


identifier 1$ [NOT] (ALPHABETIC 
NUMERIC 


SIGN CONDITION: 


NEGATIVE 


arithmetic-expression is [NOT]\POSITIVE 
ZERO 


CONDITION-NAME CONDITION: 





condition-name 


& SWITCH-STATUS CONDITION: 


condition-name 


(1) This clause used when the non-English language 
feature is invoked. 
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MISCELLANEOUS FORMATS (cont) 


NEGATED SIMPLE CONDITION: 


NOT simpie-condition 


COMBINED CONDITION: 





condition ar fooanont ae 


OR 


ABBREVIATED COMBINED RELATION CONDITION: 


relation-condition 1} AND [NOT] [relational-operator ] 
OR 


uses 7 





CONDITIONAL EXPRESSIONS 
SEQUENCE OF ELEMENTS 


Intermediate Position (left-to-right) 
Position 
First | Last May Be Immediately | May Be Immediately 
Preceded by Only: Followed by Only: 
OR or AND Fo 
OT 


Yes | Yes JOR, NOT, AND, ( 
Pr fw [wwe er 
ewes [emer 













C = Simple-condition 


RESERVED WORDS 





ACCEPT ARE 

ACCESS AREA 

ADD AREAS 

ADVANCING ASCENDING 

AFTER ASSIGN 

ALL AT 

ALPHABET AUTHOR 

ALPHABETIC & 

ALSO BEFORE 

ALTER BEGINNING 

ALTERNATE BLANK 

AND BLOCK 

APPLY BLOCK-COUNT 
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s * 


RESERVED WORDS (cont) 


BOTTOM 
BY 


CALL 

CANCEL 

CD 

CF 

CH 

CHANGED 
CHARACTER 
CHARACTERS 
CLASS-NAME 
CLOCK-UNITS 
CLOSE 

COBOL 

CODE 

CODE-SET 
COLLATING 
COLUMN 

COMMA 
COMMUNICATION 
COMP 
COMPUTATIONAL 
COMPUTATIONAL- 1 
COMPUTATIONAL-2 
COMPUTATIONAL-3 
COMPUTATIONAL-4 
COMPUTE 

COMP-1 

COMP-2 

COMP-3 

COMP-4 
CONFIGURATION 
CONNECT-FREE 
CONTAINS 
CONTROL 
CONTROLS 

COPY 

CORR 
CORRESPONDING 
COUNT 

CURRENCY 
CYLINDER-INDEX 
CYLINDER-OVERFLOW 


DATA 

DATE 
DATE-COMPILED 
DATE-WRITTEN 
DAY 

DE 
DEBUG-CONTENTS 


DEBUG-ITEM 
DEBUG-LINE 
DEBUG-NAME 
DEBUG-SUB-1 
DEBUG-SUB-2 
DEBUG-SUB-3 
DEBUGGING 
DECIMAL-POINT 
DECLARATIVES 
DELETE 
DELIMITED 
DELIMITER 
DEPENDING 
DESCENDING 
DESTINATION 
DETAIL 
DISABLE 
DISPLAY 
DIVIDE 
DIVISION 
DOWN 
DUPLICATES 
DYNAMIC 


EGI 

ELSE 

EMI 

ENABLE 

END 

ENDING 
END-OF-PAGE 
ENVIRONMENT 
EOP 

EQUAL 
ERROR 

ESI 

EVERY 
EXCEPTION 
EXHIBIT 

EXIT 

EXTEND 


FD 

FILE 
FILE-CONTROL 
FILE-ID 

FILLER 

FINAL 

FIRST 
FOOTING 

FOR 

FROM 
FUNCTION-KEYS 
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RESERVED WORDS (cont) 


GENERATE MEMORY 

GIVING MERGE 

GO MESSAGE 

GREATER MESSAGES 

GROUP MODE 
MODULES 

HEADING MORE-LABELS @ 

HIGH-VALUE MOVE 

HIGH-VALUES MULTIPLE 
MULTIPLY 

1-0 

1-O-CONTROL NAMED 

IDENTIFICATION NATIVE 

IF NEGATIVE 

IN NEXT 

INDEX NO 

INDEX-AREA NOT 

INDEXED NUMBER 

INDICATE NUMERIC 

INDICES 

INITIAL OBJECT-COMPUTER 

INITIATE OCCURS 

INPUT OF 

INPUT-OUTPUT OFF 

INSPECT OMITTED 

INSTALLATION ON 

INTO OPEN 

INVALID OPTIONAL | & 

IS OR 

ISAM ORGANIZATION 
OUTPUT 

JUST OVERFLOW 

JUSTIFIED 
PAGE 

KEY PAGE-COUNTER 
PASSWORD 

LABEL PERCENT 

LAST PERFORM 

LEADING PF 

LEFT PH 

LENGTH PIC 

LESS PICTURE 

LIMIT PLUS 

LIMITS POINTER 

LINAGE POSITION 

LINAGE-COUNTER POSITIVE 

LINE PRINTING 

LINE-COUNTER PROCEDURE © 

LINES PROCEDURES 

LINKAGE PROCEED 

LOCK PROGRAM 

LOW-VALUE 

LOW-VALUES 
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” + ‘ 


RESERVED WORDS (cont) 


PROGRAM.-ID 
PUBLIC 


QUEUE 
QUOTE 
QUOTES 


@ RANDOM 


RD 

READ 
READY 
RECEIVE 
RECORD 
RECORDS 
REDEFINES 
REEL 
REFERENCES 
RELATIVE 
RELEASE 
REMAINDER 
REMOVAL 
RENAMES 
REPLACING 
REPORT 
REPORTING 
REPORTS 


RERUN 
@ RESERVE 
RESET 
RETURN 
REVERSED 
REWIND 
REWRITE 
RF 
RH 
RIGHT 
ROUNDED 
RUN 


SAM 
SAME 
SD 
SEARCH 
SECTION 
SECURITY 
SEGMENT 
SEGMENT-LIMIT 
@ SELECT 

| SEND 

| SENTENCE 
SEPARATE 
SEQUENCE 


UP-8612 
Rev. 3 


SEQUENTIAL 
SET 
SIGN 
SIZE 
SORT 
SORT-FILE-SIZE 
SORT-MERGE 
SORT-MODE-SIZE 
SOURCE 
SOURCE-ALPHABET 
SOURCE-COMPUTER 
SPACE 
SPACES 
SPECIAL-NAMES 
SPECIFIC 
SPERRY-OS3 
SPERRY-VS9 
SPERRY-VS9-MODEL 80 
STANDARD 
STANDARD-O 
STANDARD-1 
START 
STATUS 
STOP 
STRING 
SUB-QUEUE- 1 
SUB-QUEUE-2 
SUB-QUEUVUE-3 
SUBTRACT 
SUM 
SUPPRESS 
SYMBOLIC 
SYNC 
SYNCHRONIZED 
SYSCHAN-n 
(n=1 thru 15) 
SYSCOM 
SYSCONSOLE 
SYSFORMAT 
SYSIN 
SYSIPT 
SYSLOG 
SYSLST 
SYSOPT 
SYSOUT 
SYSSCOPE 
SYSSWCH 
SYSWCH-n 
(n=O thru 31) 
SYSTEM 
SYSTEM-SHUTDOWN 
SYSTERMINAL 
SYSWORK 
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RESERVED WORDS (cont) 


TABLE USE 
TALLYING USING 
TAPE 
TAPES VALUE 
TERMINAL VALUES 
TERMINATE VARYING 
TEXT VERIFY © 
THAN 
THEN WHEN 
THROUGH WHEN-COMPILED 
THRU WITH 
TIME WORDS 
TIMES WORKING-STORAGE 
TO WRITE 
TOP 
TRACE ZERO 
TRAILING ZEROES 
TRANSFORM ZEROS 
TYPE 
*DEBUG 
UNIT + 
UNIVAC-0S3 = 
UNIVAC-VS9 * 
UNIVAC-VS9-MODEL-80 / 
UNSTRING sha 
UNTIL > 
UP < 
UPON = @ 
USAGE == 


PARAM STATEMENT OPTIONS 


PARAM Card/Result 


// PARAM eS Ng 





eeeteterngare 


nO 
sero 












Suppresses nonreferenced entries in alphabetically 
ordered cross-reference listing 











// PARAM ane oe 






Specifies an alphabetically ordered cross-reference listing 
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PARAM STATEMENT OPTIONS (cont) 


PARAM Card/ Result 


// PARAM aa ae 


Specifies static CALL of subprograms referenced by the 
literal option. YES indicates that subprograms named by 
the literal option of the CALL statements are to be linked 
with the main program. NO indicates that subprograms 
named either by the literal or identifier option of the CALL 
statements are to be dynamically loaded when called. 


// PARAM CDMI0= 
NO 
M | 


YES specifies that consolidated data management will be 
used for all files except ISAM and SAM disk files. NO 
specifies that DTF interfaces will be used for all files ex- 
cept workstation files. MI specifies that CDM interfaces 
will be used for MIRAM and workstation files only; DTF in- 
terfaces will be used for all other files. This parameter is 
applicable only for a Series 90 system that supports both 
CDM and DTF interfaces. 


// PARAM CMCS=name 


Specifies a 1- to 8-character module name of the COBOL 
communication control system. If this parameter is not 
specified for a COBOL communication program, a default 
name, consisting of 6 characters of the PROGRAM-ID 
name ({left-justified and zero-filled, if necessary) and a suf- 
fix of 2 characters (CM) is used. 


// PARAM salacae 


YES indicates that the CMCS module is bound with the 
COBOL object program. NO indicates that the CMCS 
module will be dynamically loaded at execution time. 
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PARAM STATEMENT OPTIONS (cont) 
PARAM Card/Result 


// PARAM FE 
NO 


Includes COBOL library text in source listing 


Shikeheele: ng 


// PARAM ie pc 
NO 


Specifies a diagnostic listing 


// PARAM alas ig 


NO 


Includes warning diagnostics in the diagnostic listing 


// PARAM ERRFiL=module-name/!fdname 


Specifies generation of an error-file element of compile- 
time diagnostics. The module-name is the 1- to 8- 
character module name of the element. The Ifdname is the 
1- to 8-character name of the MIRAM library where the 
element will be generated. The ERRFIL parameter is ig- 
nored unless the IN parameter is also specified. The error- 
file element is used by the OS/3 editor error file process- 
ing facility (@EFP command). 
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PARAM STATEMENT OPTIONS (cont) 


PARAM Card /Result 





// PARAM FIPS= 





// PARAM msc te 


Specifies IMS compatible; i.e., COBOL programs are to 
be executed under control of IMS as action programs. 
When IMSCOD=YES is specified, the COBOL language 


elements restricted by IMS are flagged and deleted. 


// PARAM IN=m-n/f-n 


The m-n is a 1- to 8-character source module name in the 
library; f-n is a 1- to 8-character LFD name identifying the 
file on which the rce module resides. If f-n is omitted, 
the default name $' C i 


// PARAM LIN=filename/filename/ 


Filename is a 1- to 8-character LFD name identifying the 
file or files where the COPY library resides. A maximum 
of 10 LFD names can be specified, allowing multiple 
COPY libraries to be searched. If the library-name is 
specified in the COPY statement, the library-name takes 
precedence. If the library-name is omitted in the COPY 
statement, the filename or filenames in the LIN 
parameter are used. Multiple file names are searched 
sequentially in the order specified on the LIN parameter. 
if the parameter is omitted, the name COPY$ is used as 
the default name of the LIN parameter. 
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PARAM STATEMENT OPTIONS (cont) 


PARAM Card/Result 


vES 


: 6 


Specifies a source program listing. 





// PARAM LIST= 


// PARAM ba 
NO 


Specifies generation or suppression of linker control 
Statements in the object module 


// PARAM LSTREF= ia 


Specifies a source listing with definition references 


// PARAM LSTWTH=ann 


Specifies the page width; nnn ranges from 120 roan 
160. Default vatue is 120 characters a line. 


// PARAM moan Ma 
Specifies an object program locator/map listing 
// PARAM MXNON= ‘as vES 


Suppresses nonreferenced entries in the map listing with 
cross-references 


// PARAM MXREF= tas 





Specifies a map listing with cross-references 
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PARAM STATEMENT OPTIONS (cont) 


PARAM Card/ Result 





// PARAM OBJ=filename 





Filename is a 1- to 8-character LFD name of the file on 

° which the generated object module is to be stored. If the 
parameter is not specified, the default name SYSRUN is 
used. 


// PARAM hace 


Specifies an object program listing 


// PARAM es 
NO 


Specifies object module production 


// PARAM PAGOVF=(YES 
NO 


YES provides automatic printer page eject feature in the 
object program. NO indicates omission of the eject feature 
in the object program. PAGOVF=YES should not be 
specified, if the LINAGE clause or the ADVANCING PAGE 
ohrase is Specified in the source program. 


// PARAM ag 


YES specifies the production of a listing of procedure- 
names and verbs with associated source line numbers and 
object program relative addresses. NO indicates suppres- 
sion of the listing. 


// PARAM aaa a, 


Suppresses ali fistings unconditionally. This parameter 
overrides all other listing parameters. 
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PARAM STATEMENT OPTIONS (cont) 
PARAM Card/Result 


// PARAM SPROUT=(1 


Suppresses compiler output (except source listing, 
diagnostic listing, and related options) when severity code 
level 1, 2, or 3 errors are encountered. 


// PARAN snc 


Specifies syntax check only on normal compilation. When 
SYNCHK=YES is specified, only the FIPS, LSTDTH, and 
LSTWTH parameters may be specified. A source program 
listing and a diagnostic listing are produced automatically 
by the compiler. 


// PARAM TRNADR=§¥ES 
NO 


YES indicates generation of a transfer address in the ob- 
ject module. NO indicates suppression of a transfer ad- 
dress, in which case, the program cannot be executed un- 
less tt is called. 


// PARAM TRUNC=(¥ES 
NO 


YES indicates that data truncation and detection of SIZE 
ERROR on binary items are based on the decimal digits 
specified in the PICTURE character-string. NO indicates 
that data truncation and detection are based on the actual 
storage size allocated to the items. 
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PARAM STATEMENT CONSISTENCY 
CHECKS 


User Specifications Compiler Actions 


Parameter Parameter Value 


ust | sno | sustrer | no 











| usTREF 

| CPYTXT | 
MIXNON YES 
YES 


-~< 
m 
: 


[NO 

MIXREF 
AXREF 
PROVER 


DIAG 






< 
M7 
) 



















OBJLST 


AP 
LIST 
OBJMOD 

AP 


M 


LNKCOM 
PAGOVE 
TRNADR 
LIST 
LSTREE 
CPYTXT 
OBJLST 
MAP 
MIXREF 
AXREF 
DIAG 
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JPROC TO EXECUTE COBL74 
LANGUAGE PROCESSOR 


ae yn" rl 


COBL741L fun} | . vol-ser-no | 
COBL74LG N 
20 ) 
. 'N={ ( vol-ser-no, label } @ 
(RES) 


(RES , iabel ) 


: RUN , label } 
. label ) 


LIN= { (vol-ser-no,label} ,LINn=/ (vol-ser-no,tabel) 


s (RES, label) (RES, label) 


CRUN , label) (RUN, label) 
iS = label) (*, label} 


“iat 
oat] 


( vol-ser-no,iabel) | I[ . option=specifications } 
(RES , label} 
(RUN . label } 


(* . label} 













( vol- ser-no,label ) 
(RES , label) 
{ RUN , label ) 
















[ , ERRF 1 L=( vol-ser-no,label,module-name } | 
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